home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / rmqb01.zip / WRITEQGF.BAS < prev   
Encoding:
BASIC Source File  |  1991-11-06  |  699 b   |  33 lines
  1.  '                             WriteQgf.bas
  2.  '
  3.  ' Purpose : Creates a QGF file
  4.  ' Compiler: Quick Basic 4.5
  5.  ' Date    : Nov 3, 1991
  6.  
  7.  OPTION BASE 1
  8.  DEFINT A-Z
  9.  SCREEN 7       ' Raster Master will accept images created in SCREENS
  10.                 ' 7,8,9, and 12.
  11.  x = 0
  12.  y = 0
  13.  x2 = 49
  14.  y2 = 49
  15.  
  16.  LINE (1, 1)-(48, 48), 5, BF
  17.  LINE (6, 6)-(25, 25), 11, BF
  18.  LINE (0 - 0, 0)-(49, 49), 14, B
  19.  
  20.  myWidth = x2 - x + 1
  21.  myHeight = y2 - y + 1
  22.  myArraySize = (5 + myHeight * 4 * INT((myWidth + 7) / 8)) / 2
  23.  
  24.  DIM myImage(myArraySize)
  25.  GET (x, y)-(x2, y2), myImage
  26.  
  27.  OPEN "SAMPLE.QGF" FOR BINARY AS #1
  28.    FOR i = 1 TO myArraySize
  29.      PUT #1, , myImage(i)
  30.    NEXT i
  31.  CLOSE #1
  32.  
  33.